| From: | Roger Light |
| Date: | 26 Sep 99 at 17:14:28 |
| Subject: | Re: RED Commodities |
On 26-Sep-99, James L Boyd wrote:
> No hits here (this is what I tested) :
>
> -------------------
>
> FindScreen 0
>
> Window 0,0,0,640,100,$20140f,"",1,2
>
> Repeat
> Wait
> winEvent.l=Event
> Gosub HandleIDCMP
> Until winEvent=$200
>
> End
>
> HandleIDCMP
> Return
Well this has all got a bit confused I think. The two wait and the CommodityEvent problems seemed to be completed unrelated but they weren't. It seems that CommodityEvent doesn't cause
a hit after all. And neither did only having one Wait ;) The problem was an
errant IsRexxMsg(Rmsg.l). If no Rexx command had been recieved, Rmsg is 0.
So the Enforcer hit was caused by IsRexxMsg(0) trying to see if there was a
Rexx msg at 0. Easily solved:
Rmsg.l=RexxEvent(Port.l)
if Rmsg
if IsRexxMsg(Rmsg)
gosub HandleRexx
endif
endif
And now I have *no* enforcer hits at all ;)
Wahey.
Roger
---------------------------------------------------------------------
To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie